home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / series-1.bas < prev    next >
BASIC Source File  |  1994-06-23  |  812b  |  31 lines

  1. 5 PRINT "                  ***SERIES RESONANCE***"
  2. 10 PRINT
  3. 15 PRINT "WHAT IS THE VALUE OF (C) IN pF?"
  4. 20 INPUT "ENTER";C
  5. 25 PRINT "WHAT IS THE VALUE OF (L) IN uH?"
  6. 30 INPUT "ENTER";L
  7. 40 RS=2
  8. 50 RP=100000!
  9. 55 P=3.141592654#
  10. 60 Y=180/P
  11. 65 FR=10^3/((2*P)*((L*C)^.5))
  12. 66 PRINT FR, "RESONANT FREQUENCY (FR) IN MHZ."
  13. 70 PRINT "WHAT IS THE DESIRED VALUE OF (F) IN MHz?"
  14. 75 INPUT "ENTER";F
  15. 79 IF F > FR + 1 THEN 200 ELSE 80
  16. 80 FA=F*10^6
  17. 85 LA=L/10^6
  18. 90 CA=C/10^12
  19. 95 G=RP*(((1-4*P^2*FA^2*LA*CA)^2+RS^2*CA^2*4*P^2*FA^2)^.5)
  20. 100 H=((1-4*P^2*FA^2*LA*CA)^2+(RS+RP)^2*CA^2*4*P^2*FA^2)^.5
  21. 105 Z=G/H
  22. 110 J=Y*(ATN((RS*CA*2*P*FA)/(1-4*P^2*FA^2*LA*CA)))
  23. 115 K=Y*ATN(((RS+RP)*CA*2*P*FA)/(1-4*P^2*FA^2*LA*CA))
  24. 120 A=J-K
  25. 135 PRINT
  26. 165 PRINT F, "MHZ"
  27. 170 PRINT Z, "OHMS"
  28. 180 F=F+.1
  29. 190 GOTO 79
  30. 200 END
  31.